home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilcli / mscclcmd.lha / Examples / DeliRecent next >
AmigaDOS Script File  |  1996-10-01  |  2KB  |  60 lines
  1. .key EXPIRE
  2. .def EXPIRE 20
  3. .bra {
  4. .ket }
  5. FailAt 21
  6. Rx >NIL: "ADDRESS DeliTracker; savelist 'T:TempFile'"
  7. Resident C:GetDate PURE
  8. Resident C:GetLine PURE
  9. Resident C:Inc PURE
  10. If ERROR
  11.   Copy $DELICONFIG/DeliTracker.program To T:TempFile
  12.   SetENV PathFile $DELICONFIG/Recent.program
  13.   Echo >T:NewModList
  14.   SetENV LineNum 2
  15.   GetDate >ENV:CurDate NUM
  16.   Lab Loop
  17.     GetLine >ENV:Line T:TempFile $LineNum NOLF
  18.     If ERROR
  19.       Skip End
  20.     EndIf
  21.     GetDate >ENV:FileDate FILE "$Line" NUM
  22.     Inc ENV:CurDate -$FileDate TO ENV:Dummy
  23.     If VAL {EXPIRE} GT $Dummy
  24.       Echo >>T:NewModList "$Line"
  25.     EndIf
  26.     Inc ENV:LineNum
  27.     Skip BACK Loop
  28.   Lab End
  29.   Echo >$PathFile "MODLIST"
  30.   Type >>$PathFile T:NewModList
  31.   Delete >NIL: T:TempFile T:NewModList ENV:PathFile ENV:Dummy ENV:Line ENV:LineNum ENV:CurDate ENV:FileDate
  32. Else
  33.   RequestFile >ENV:PathFile DRAWER $DELICONFIG FILE Recent.program TITLE "Choose program to save to..." POSITIVE "Save" NEGATIVE "Abort" SAVEMODE NOICONS
  34.   If NOT WARN
  35.     Echo >T:NewModList
  36.     SetENV LineNum 2
  37.     GetDate >ENV:CurDate NUM
  38.     Lab Loop2
  39.       GetLine >ENV:Line T:TempFile $LineNum NOLF
  40.       If ERROR
  41.         Skip End2
  42.       EndIf
  43.       GetDate >ENV:FileDate FILE "$Line" NUM
  44.       Inc ENV:CurDate -$FileDate TO ENV:Dummy
  45.       If VAL {EXPIRE} GT $Dummy
  46.         Echo >>T:NewModList "$Line"
  47.       EndIf
  48.       Inc ENV:LineNum
  49.       Skip BACK Loop2
  50.     Lab End2
  51.     Echo >ENV:Dummy "MODLIST"
  52.     Copy ENV:Dummy $PathFile
  53.     List >ENV:PathFileNQ $PathFile LFORMAT "%f%s"
  54.     Sort T:NewModList TO T:TempFile
  55.     Type >>$PathFileNQ T:TempFile
  56.     Rx >NIL: "ADDRESS DeliTracker; playmod '$PathFileNQ'"
  57.   EndIf
  58.   Delete >NIL: T:TempFile T:NewModList ENV:PathFile#? ENV:Dummy ENV:Line ENV:LineNum ENV:CurDate ENV:FileDate
  59. EndIf
  60.